Исходный код

Option Explicit
Call ShowClsInfo()

'=============================================================================
' Выбрать классификатор и вывести его описание
'=============================================================================
Sub ShowClsInfo()
    Dim SelectClassifDlg, RetVal
     
    ' Открывает окно выбора классификатора
    Set SelectClassifDlg = ThisApplication.Dialogs.SelectClassifierDlg
    
    ' Устанавливает корневой классификатор с которого отображать дерево
    SelectClassifDlg.Root = ThisApplication.Classifiers(0)
    RetVal = SelectClassifDlg.Show
    
    If RetVal Then
    
        ' Выводит описание выбранного классификатора
        MsgBox SelectClassifDlg.Classifier.Description, vbInformation
    
    End If
End Sub
'=============================================================================